home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm24 / 00792_SU-IN su 2.ls < prev    next >
Encoding:
Text File  |  1996-06-10  |  2.2 KB  |  70 lines
  1. on enterFrame
  2.   global g1erSprChr, gMaxBoutons, g1erSprLoc, gEtudPrec, gPartie
  3.   repeat with i = g1erSprLoc + 6 to g1erSprLoc + 9
  4.     set the visible of sprite i to 1
  5.   end repeat
  6.   if ((gEtudPrec = "CO") or (gEtudPrec = "SU")) and (gPartie <> " ") then
  7.     nothing()
  8.   else
  9.     repeat with i = g1erSprLoc + 10 to g1erSprLoc + 12
  10.       set the visible of sprite i to 0
  11.     end repeat
  12.   end if
  13. end
  14.  
  15. on exitFrame
  16.   global gSujet0, gListCod, gListPart, gEtudAct, gEtudPrec, gEtatEtud, gPartie, g1erSprChr, gMaxBoutons, g1erSprNav, gBoutons, g1erSprLoc, gTraduit, gMessDef1, gMessDef2, gScopeSu, gPosVideo, gPosDebP, gPosDebS, gPosDebE, gPosFin, gMol
  17.   repeat with i = g1erSprChr to gMaxBoutons
  18.     puppetSprite(i, 1)
  19.   end repeat
  20.   set gMol to 0
  21.   gBarChron(fleche, 0, 1, 1)
  22.   Affiche_Date(gSujet0, "ZI1", "ZI2", "ZI3", 0)
  23.   set monEpok to gSujet0(Le_Epoque)
  24.   if (monEpok = 70) or (monEpok = 4) then
  25.     gBoutons(habille, g1erSprLoc + 5, "vide")
  26.   end if
  27.   gBarChron(fleche, 0, 1, 1)
  28.   gBarChron(fleche, 1, monEpok, 0)
  29.   set monStatut to gSujet0(Le_Statut)
  30.   if monStatut = "A" then
  31.     gBoutons(appuie, g1erSprLoc + 4)
  32.     set the visible of sprite (g1erSprNav + 2) to 1
  33.   else
  34.     gBoutons(appuie, g1erSprLoc + 5)
  35.     set the visible of sprite (g1erSprNav + 2) to 0
  36.   end if
  37.   if ((gEtudPrec = "CO") or (gEtudPrec = "SU")) and (gPartie <> " ") then
  38.     set gPosDebS to (getPos(gListCod, gSujet0(Le_Code)) - 1) * 300 * 4
  39.     set gPosDebP to (getPos(gListPart, gPartie) - 1) * 300
  40.     set gPosFin to gPosDebE + gPosDebS + gPosDebP + 239
  41.     gScopeSu(SetTime, gPosDebE + gPosDebS + gPosDebP + gPosVideo)
  42.     if gPartie = "T" then
  43.       set monNumSpr to g1erSprLoc + 9
  44.     else
  45.       if gPartie = "C" then
  46.         set monNumSpr to g1erSprLoc + 8
  47.       else
  48.         if gPartie = "S" then
  49.           set monNumSpr to g1erSprLoc + 7
  50.         else
  51.           set monNumSpr to g1erSprLoc + 6
  52.         end if
  53.       end if
  54.     end if
  55.     gBoutons(appuie, monNumSpr)
  56.     repeat with i = g1erSprLoc + 10 to g1erSprLoc + 12
  57.       set the visible of sprite i to 1
  58.     end repeat
  59.     set gMessDef1 to getAt(gTraduit, 38)
  60.   else
  61.     set gMessDef1 to getAt(gTraduit, 39)
  62.     set gEtatEtud to " "
  63.     set gPartie to " "
  64.   end if
  65.   gScopeSu(preLoad, 1000, 0)
  66.   JukeBox(1, " ")
  67.   curseur(-1)
  68.   BigPurge()
  69. end
  70.